home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -seriously_amiga- / graphics / portrait / install-portrait < prev    next >
Text File  |  1998-06-22  |  3KB  |  137 lines
  1. ; $VER: Install (Portrait) 1.2 (17.06.98)
  2. ; © 1998 Christopher January
  3.  
  4. (transcript "Install-Portrait")
  5.  
  6. (set @app-name "Portrait")
  7.  
  8. (set #disclaimer-msg
  9.   (cat "Please remember that Portrait is still very much"
  10.        "\nunder development and it is likely to contain a ,"
  11.        "\nnumber of bugs and many unimplemented features. "
  12.        "\nPlease read AFD-COPYRIGHT before installing     "
  13.        "\nPortrait. You may not use Portrait unless you   "
  14.        "\nagree to the terms in the file. This version of "
  15.        "\nPortrait has been released for test purposes    "
  16.        "\nonly.                                           ")
  17. )
  18.  
  19. (set #need-newwpa8
  20.   (cat "You must run NewWPA8 before Portrait, otherwise   "
  21.        "\nyou will just see garbage in the canvas window! ")
  22.        "\n"
  23.        "\nNewWPA8 by Michael van Elst")
  24. )
  25.  
  26. (set #install-newwpa8 "Installing NewWPA8")
  27.  
  28. (set #install-program "Installing Portrait program")
  29.  
  30. (set #install-mode "Installing PortraitMode program")
  31.  
  32. (set #install-projectmanager "Installing ProjectManager")
  33.  
  34. (set #install-prefs "Installing default preferences")
  35.  
  36. (set #install-icons "Installing toolbar icons")
  37.  
  38. (set #install-misc "Installing supplementary files")
  39.  
  40. (set #install-docs "Installing documentation")
  41.  
  42. (set #install-dest
  43.   (cat "Where do you wish to install Portrait?"
  44.        "\nA drawer will be created"))
  45.  
  46. (set #bad-kick "Portrait requires Kickstart 3.0+")
  47.  
  48. (set #copy-tabs "Copying tabs.gadget to SYS:Classes/Gadgets")
  49.  
  50. (set #hi-msg "Welcome to the Portrait Installation")
  51.  
  52. (if (< (/ (getversion) 65536) 39)
  53.   (abort #bad-kick)
  54. )
  55.  
  56. (welcome #hi-msg)
  57.  
  58. (message #disclaimer-msg)
  59.  
  60. (set @default-dest
  61.   (askdir
  62.     (prompt #install-dest)
  63.     (help @askdir-help)
  64.     (default @default-dest)
  65.   )
  66. )
  67.  
  68. (set @default-dest (tackon @default-dest "Portrait"))
  69.  
  70. (copyfiles
  71.   (prompt #install-program)
  72.   (source "Portrait")
  73.   (infos)
  74.   (dest @default-dest)
  75. )
  76.  
  77. (copyfiles
  78.   (prompt #install-mode)
  79.   (source "PortraitMode")
  80.   (infos)
  81.   (dest @default-dest)
  82. )
  83.  
  84. (copyfiles
  85.   (prompt #install-projectmanager)
  86.   (source "ProjectManager")
  87.   (infos)
  88.   (dest @default-dest)
  89. )
  90.  
  91. (copyfiles
  92.   (prompt #install-misc)
  93.   (source "CHANGES")
  94.   (source "FILES")
  95.   (source "Projects.list")
  96.   (infos)
  97.   (dest @default-dest)
  98. )
  99.  
  100. (copyfiles
  101.   (prompt #install-icons)
  102.   (help @copyfiles-help)
  103.   (source "Icons")
  104.   (all)
  105.   (infos)
  106.   (dest (tackon @default-dest "Icons"))
  107.   (confirm)
  108. )
  109.  
  110. (copyfiles
  111.   (prompt #install-docs)
  112.   (source "Docs")
  113.   (help @copyfiles-help)
  114.   (all)
  115.   (infos)
  116.   (dest (tackon @default-dest "Docs"))
  117.   (confirm)
  118. )
  119.  
  120. (copylib
  121.   (prompt #copy-tabs)
  122.   (source "Classes/Gadgets/tabs.gadget")
  123.   (dest "SYS:Classes/Gadgets")
  124.   (help @copylib-help)
  125.   (confirm)
  126. )
  127.  
  128. (message #need-newwpa8)
  129.  
  130. (copylib
  131.   (prompt #copy-newwpa8)
  132.   (source "NewWPA8")
  133.   (dest "C:")
  134.   (help @copyfiles-help)
  135.   (confirm)
  136. )
  137.